10 PRINT CHR$(147);CHR$(5):POKE 53280,14:POKE 53281,6
20 FOR I=1 TO 6:PRINT CHR$(17):NEXT
30 FOR I=1 TO 16:PRINT CHR$(29);:NEXT:PRINT"LOADING"
40 PRINT CHR$(19);CHR$(31);"POKE 8192,0:POKE 44,32:NEW"
50 PRINT CHR$(17);CHR$(17);"LOAD"CHR$(34)"RAID"CHR$(34)",8"
60 POKE 198,10
70 DATA 19,13,13,32,32,32,82,85,78,13
80 FOR I=1 TO 10:READ X:POKE 630+I,X:NEXT